Wizualizacja źródłowa oraz dane dostępne są na stronie GUS: https://stat.gov.pl/wykres/1.html, stan na 7 maja 2024.
Uwaga: Wykres na stronie jest interaktywny, nie ten.
Brakuje tytułów osi i wykresu. Fajnie by było jakby się dało poszczególne lata włączać i wyłączać.
inflacja <- read.csv("inflacja.csv")
colnames(inflacja) <- c("Miesiąc", "r2021", "r2022", "r2023", "r2024")
plot_ly(
data = inflacja,
x = ~Miesiąc,
y = ~r2021,
type = "scatter",
name = "2021",
mode = "lines+markers",
marker = list(size = 10, color = '00ccff'),
line = list(color = '00ccff')
) %>%
add_trace(y = ~r2022,
name = "2022",
marker = list(size = 10, color = 'forestgreen'),
line = list(color = 'forestgreen')) %>%
add_trace(y = ~r2023,
name = "2023",
marker = list(size = 10, color = '66ff33'),
line = list(color = '66ff33')) %>%
add_trace(y = ~r2024,
name = "2024",
marker = list(size = 10, color = '660033'),
line = list(color = '660033')) %>%
layout(xaxis = list(showgrid = FALSE,
categoryorder = "array",
categoryarray = c("Styczeń","Luty","Marzec","Kwiecień","Maj",
"Czerwiec","Lipiec","Sierpień","Wrzesień",
"Październik","Listopad","Grudzień")),
yaxis = list(title = "Inflacja w %"),
legend = list(x = 100, y = 0.5),
title = "Inflacja w Polsce w latach 2021 - 2024")
Elementy wymienione wcześniej zostały poprawione, przez co wykres wydaje mi się czytelniejszy. Efekt uboczny: po najechaniu na punkt na wykresie, informacja, która się wyświetla w plotly, np: (Kwiecień, 4.3) 2021, wygląda moim zdaniem lepiej niż ta ze strony GUSu (ramka z zestawieniem wszystkich lat).